2 IF A=1 THEN 10
4 A=1
6 LOAD"MULTI-SCREEN",8,1
10 SYS 49152
20 V1=53153:V2=53201
30 POKE V1+32,0:POKE V1+33,0
40 POKE V2+32,0:POKE V2+33,0
50 POKE V1+17,PEEK(V1+17) OR 32
60 POKE V1+24,PEEK(V1+24) OR 8
70 POKE V1+24,(PEEK(V1+24) AND 15) OR 48
80 FOR I=3072 TO 4071:POKE I,48:NEXT
90 FOR I=8192 TO 16191:POKE I,0:NEXT
100 FOR X=0 TO 319 STEP .5
110 Y=INT(90+80*SIN(X/10))
120 CH%=X/8:RO%=Y/8
130 LN=Y AND 7
140 BY=8192+RO%*320+CH%*8+LN
150 BI=7-(X AND 7)
160 POKE BY,PEEK(BY) OR 2^BI
170 NEXT
180 PRINT CHR$(147);
190 FOR I=0 TO 100:C=I AND 31
192 POKE 646,C
195 IF C>=16 THEN PRINT CHR$(18);
200 PRINT "THIS IS LINE #";I
210 NEXT
220 END